home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
qbsnip.zip
/
QUAZAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-12-15
|
368b
|
19 lines
'Quazar Sound Effect
'by Andrew K. Dart
Quazar
SUB Quazar()
PLAY "MF T255 L64 "
FOR x = 1 TO 84
PLAY "N" + STR$(x)
IF x < 75 THEN PLAY "N" + STR$(x + 10)
IF x < 65 THEN PLAY "N" + STR$(x + 20)
NEXT x
FOR x = 83 TO 1 STEP -1
PLAY "N" + STR$(x)
IF x < 75 THEN PLAY "N" + STR$(x + 10)
IF x < 65 THEN PLAY "N" + STR$(x + 20)
NEXT x
END SUB